home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / SHARED.DIR / 03090_Script_XOBJS OPEN-CLOSE < prev    next >
Text File  |  1996-04-01  |  726b  |  27 lines
  1. -- --------------------------------------------------------
  2. -- Handler openXObjHandler opens the given xobj in the xobject
  3. -- folder.
  4.  
  5. on openXObjHandler whichXobj
  6.   if the machinetype = 256 then
  7.     set xobjPath = the pathName & "XObjs\" -- PC
  8.   else
  9.     set xobjPath = the pathName & "XObjs:" -- Mac
  10.   end if
  11.   openXlib xobjPath & whichXobj
  12. end
  13.  
  14. -- --------------------------------------------------------
  15. -- Handler closeXObjHandler closes the given xobj in the xobject
  16. -- folder.
  17.  
  18. on closeXObjHandler whichXobj
  19.   if the machinetype = 256 then
  20.     set xobjPath = the pathName & "XObjs\" -- PC
  21.   else
  22.     set xobjPath = the pathName & "XObjs:" -- Mac
  23.   end if
  24.   closeXlib xobjPath & whichXobj
  25. end
  26.  
  27.